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| Later VR = RLO1/2 BOOT DRIVER 15-SEP-1984 t $3:30:8! AX/VMS Macro V04-00 Page 1 
v04- 4-SEP-1984 23:04:06 ([CBOOTS.SRCJDLBTDRIVR.MAR;1 (1) 
8 1 oun ATLe tee - RLO1/2 BOOT DRIVER 
§ . IDENT 
3 ¢ 5 eueneeneesneennnnnnonneeebaneenqnenenesneesenenenenennsesenebeceeceunedenes 
2* * 
$00 : 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
4 16 :* ALL RIGHTS RESERVED. * 
6 a 
000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
B88 1 3* ONLY IN emer NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF oa NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
+464 1 :* TRANSFERRED. . 
0000 18 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AN HOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
464 $9 he CORPORATION. * 
e * 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ae 
* 
9464 $$ ITTIITITITITITI LITT TTITITI ITLL Ti TTL LTT LTT TTT iii TTT iti 
ae 
9009 30 > FACILITY: BOOTS 
0000 32 > ABSTRACT: 
0000 3 This module contains the bootstrap device driver for 
494 $e 3 the RLO1/2. disks. 
44 Hy : ENVIRONMENT: IPL 31, kernel mode, code must be PIC 
0000 38 : AUTHOR: Steve Beckhardt CREATION DATE: 31-Oct-1979 
44 ip : (Original author: Charlie Franks) 
9000 41 > MODIFIED BY: 
0000 rk : 02-03 GARZ00S G. R. Robert 11-JUN-1981 
464 rt: 3 Fixed get status code to test status bits properly 
9000 46 : 02-02 Caso001 C.A. Samuelson 30-Apr-1980 
BR08 re 4 : Change interface to “BOOTDRIVR for purge of UBA datapath 
0000 49 i= 


=e 


? 
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68 : EQUATED SYMBOLS: 


0 1 -SBTTL DECLARATIONS 
i: INCLUDE FILES: 
5 
§ SBTDDEF : Boot device types 
SIODEF ; 1/0 function codes 
0 8 SRPBDEF ; RPB offsets 
0 9 SSSDEF 3; Status goges 
0 60 SUBADEF 3 YG, e*rare 
0 3 SUBIDEF ; 11/750 UBA sth eseteun 
0000 68 ; 
00 rf: ; MACROS: 
00 
3 
0 
00 
00 
00 
00 
00 
00 


SOOCoooooooooooooooooooo 


MMVMNNNNNNNNNNNNNOSCO OCC OCOOOCOOOOO OOOO OOOOOOOOO 
~ 
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70 ; 
21 RL11/RLO2 CONTROLLER REGISTER OFFSETS 
7 . 
00 0 SDEFINI RL ;START OF REGISTER DEFINITIONS 
00 76 SDEF .BLKW SCONTROL STATUS REGISTER (CSR) 
00 77 RUTELD RL_CS,0,<= ;START OF CSR BIT DEFINITIONS 
00 78 <DRDY, .M>,= : DRIVER REA AD 
000 79 <r CODE, 3>. = ; FUNCTION ODE 
000 80 <XBA,2>,- + BUS ADDRESS EXTENSION BITS 
000 81 <IE,.M>,- ; INTERRUPT ENABLE 
000 a <CROY, .M>,- : CONTROLLER READY 
000 8 <0S,2>, ; DRIVE SELECT 
000 84 <OP i. ,A>,- ; OPERATION INCOMPLETE 
000 85 <CRC,,M>,= ; DATA CRC OR HEADER CRC 
000 86 <DLT,.M>,= ; DATA LATE OR HEADER NOT FOUND 
000 <NXM, /M>. = : NON-EXISTENT MEMO 
000 8B <DE,.4>,- ; DRIVE ERROR 
000 89 <CE, .M>=- : COMPOSITE ERROR 
900 30 > SEND CSR BIT DEFINITIONS 
9002 3 SDEF —- RL_BA .BLKw :BUS ADDRESS REGISTER (BAR) 
0004 94 SDEF RL_DA .BLKW :DISK ADDRESS REGISTER (DAR) 
6 95 _VIELD RL_DA,O,<- ZSTART OF DAR BIT DEFINITIONS 
0006 36 <MRK, .M>,- ; MARK CALUA YS 1) 
006 9 <STS,.M>.= ; GET STATUS 
006 498 <,1>2- > RESERVED BIT 
006 499 <RST; M>, : R 
006 100 <,12>- 3; RESERVED BITS 
006 1 > [END OF DAR BIT DEFINITIONS 
090 1 : SDEF RL_MP .BLKW 1 :MUL TIPURPOSE REGISTER (MPR) 
08 104 _VIELD RL_MP,0,<- ;START OF MPR BIT DEFINITIONS 
00 105 <STA, $>.- : DRIVE OC TATE 
0 1 6 <BH, .M>.- + BRUS 
08 1 <HO..M>.= > HEADS OUT 
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BIDRIVR = RLO1/2 BOOT DRIVER 15=SEP=1984 23:50:41 VAX/VMS Macro v04-00 Pa 
Pb 000 DECLARATIONS 4-SEP-1984 33:30:64 Yeoors sre DLBTDRIVR.MAR; 1 - 3) 
8 ee : ABNER Oe, 
‘ <TYP. M>, = : DRIVE TYPE 
<DSE,.M>.= : DRIVE SELECT ERROR 
<vC,,M>,= + VOLUME CHECK 
<wGE, .M>,- + WRITE GATE ERROR 
<SPE,.M>.= + SPIN ERROR 
<SkTO; .M>,- + SEEK TIME OUT 
<WL,,M>,- ; WRITE LOCK 
<CHE. ,M>,= t CURRENT HEAD ERROR 
<WDE, ,M>= + WRITE DATA ERROR 
> [END OF MPR BIT DEFINITIONS 
SDEFEND RL sEND RL11/RLO2 REGISTER DEFINITIONS 


: OWN STORAGE: 


Boot driver table entry 


$B007 DRIVER DEVTYPE = BIDSK_DL,=- ; Device type (DL) 
SIZE = DL_DRVSI7,- ; Driver size 
ADDR = DL_DRIVER,- : Driver address 
DRIVRNAME = DLNAME ; Driver file name 
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8 a 4 tt a ss es a a 2 a ts 
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R3 - must be preserved 


This routine destroys at R2, pee R5, R6. Within the 
s 


routine, register usage as follows: 


BUF = 4 
SIZE = 8 
FUNC = 16 
DL_DRIVER: 


00000008 
00000010 


: RESET DRIVE AND WAIT FOR IT TO SPIN UP. 


0 
0 
0 
0 
0 
0 
0 
00000004 
0 
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DLBTORIVR = RLO1/2 BOOT DRIVER 15-SEP-1984 23:50:41 VAX/VMS Macro v04-00 Pa 
voe- RLOI/2 Bootstrap driver code 46-SEP-1984 $3.00 %b4 BOOTS.SRCJDLBTORIVR.MAR; 1 - db 
135 -SBTTL RLOI1/2 Bootstrap driver code 
8 3¢? 
0 ? 3 Inputs: 
0 8 : 3 R = base address of géopters register space 
0 4; pe = LBN FOR CURRENT PIECE OF TRANSFER 
000 5; R = contains 
0 § ; B - address vice's CSR 
0 3 R8 - SIZE OF TRANSFER IN BYTES 
8 8 : Ro - aceregs of the RPB 
; R10 = starting address of transfer soyte offset in first 
8 : 29 3 page ORed with starting map register number) 
000 ¢ 3 FUNC(AP)= 1/0 operation (IO$_READLBLK or IO0$_WRITELBLK only) 
000 33 3 BUF (AP) = Buffer address 
8 : 3 SIZE(AP)= Size of transfer 
8 5 : Implicit inputs: 
B08 3 RPBSW_UNIT - RPB field containing boot device unit number 
000 ; Outputs: 
000 3 
44 3 RO - status code 
000 3 SS$_NORMAL - successful transfer 
0 ; 3 SS$_CTRLERR - fatal controller error 
0 3 
0 3 
0 3 
0 3 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


AVWOO SOOWMOOCOOCOCOOCOO OOOO OSSS COSCO SOOO COOOSOSOSOO SOOO OOOOOOOOOO 
a a ee a ee a a ee ee ee a a a ed 


WN 9 ODO NA UNE WIN 9 OD NIA NE WIN $9 ODNAUE WN" OOODNAOUSE 
. 


50 04 0 CLRL = RO : CLEAR RO 
50 02 08 64 a9 FO INSV  RPBSW_UNIT(R9),#8,#2,RO : GET UNIT NUMBER 

04 a7 0B BO O MOVW #RL DAA RST!~ : PUT RESET & GET STATUS IN DAR 

° RL DAA ARK RL DA(R7) 
67 50 04 ag 10$: BISW3 #47ROTRE_CS(R?T 3 EXECUTE DRIVE RESET 
OOF 30 1 BSBW READY : WAIT FOR CONTROLLER READY 
56 06 A C 001 MOVZWL RL _MP(R7) .R6 : FETCH STATUS WORD 
1D 0S 00 €ED 001 CMP2V. #07#5,R6,- : TEST STATUS BITS 04:00 

1 9 #Ri_MP_MHO!- ; HEADS ,BRUSHES,STATE OK? 


wr 


DLBTDRIVR = RLO1/2 BOOT DRIVER 15-SEP-1984 23:50:41 VAX/VMS Macro V04-00 Page D 
vOe~000 RLO/2 Bootstrap driver code Fae att 33:30:61 yeoors sre DLBTDRIVR.MAR; 1 ° (3) V 
194 RL_MP_M_BH!5 : se. (5 = SEEK LINEAR MODE STATE) | 
Fe 1 BNEQ $ + BRANCH IF NOT: WAIT FOR DRIVE TO SPIN UP 
67 O01 8B BiTW  #RL_CS_M_DRDY,RL_CS(R7) : IS DRIVE READY? 
9 «1 BEQL 108 : IF NOT, BRANCH TO WAIT FOR DRIVE READY 
> FIND C RRENT DISK ADDRESS, CALCULATE CYLINDER DIFFERENCE, AND SEEK 
+ DESIREC CYLINDER 
67 50 08 ag 20$: BISW3 #8,RO,RL_CS(R7) : EXECUTE READ HEADER 
00E6 30 BSBW READY : WAIT FOR CONTROLLER READY 
1 BGEQ + BRANCH IF NO ERROR READING HEADER 
00c8 231 SRW 100$ + OTHERWISE, BRANCH TO ERROR HANDLING 
51 06 A7 3F AB 30$: B1CW3 #*077,RL_MP(R7),R1 + GET CURRENT CYL & SURFACE 


: NOW CONVERT LOGICAL TO PHYSICAL 
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io 
a 


5 
139 
198 
199 
0 
4 
5 
6 
7 
8 
9 
0 
31 
55 02 Cé ; 4 MULL #2,R5 3 CONVERT LOGICAL BLOCKS TO SECTORS 
56 5 CLRL ; CLEAR HIGH PART OF DIVIDEND 
54 56 55 00000050 8F 7B 216 EDIV #80,R5,R6,R4 ; R6 = DESIRED CYL = LBN/(SECTORS/CYL) 
217 + RG = REMAINING SECTORS 
55 4 218 CLRL sR : CLEAR HIGH PART OF DIVIDEND 
54 55 54 28 78 219 EDIV #40,R4,R5,R4 : RS = DESIRED SURFACE = R5/(SECT/SUR) 
220 : R& = DESIRED SECTOR 
56 56 O07 78 221 ASHL #7,R6,R6 3 SHIFT DESIRED CYLINDER INTO R6<15:7> 
56 01 06 55 FO 2 é INSV R5,#6,#1,R6 : INSERT DESIRED SURFACE BIT INTO R6<6> 
51 56 Bi 2 CMPW SséR6R1 : IS A SEEK NEEDED? 
2 «13 ‘ , BEQL 50$ + BRANCH IF NOT. 
26 
$$ : NEED TO PERFORM A SEEK. 
$87 359° 
51 OO7F 8F AA 00 330 BICW #*0177,R1 : ISOLATE CURRENT CYLINDER IN R1 
52 56 OO7F 8F aB 00 31 35$ BICW3 #*0177,R6,R2 : ISOLATE DESIRED CYLINDER IN R2 
51 52 Ag 0 $32 SUBW =—s«aR2, R1 : SUBTRACT DESIRED FROM ACTUAL 
08 (1 0 3 BEQL 408 : BRANCH IF CURRENT = DESIRED CYLINDER 
06 IE 00 934 aa 40$ + BRANCH IF CURRENT >= DESIRED CYLINDER 
51 51 AE 0069 5 MNEGW R1,R1 ; ACTUAL<DESIRED, MAKE POSITIVE DIFF 
51 04 As 006C 3% BISW = #4, R1 : SET SIGN FOR MOVE TO CENTER OF DISK 
51 OF 04 55 ro 99 F 37 40S: INSV. R5,#4,#1,R1 : INSERT SURFACE BIT IN R1<4> 
046 a7 51=«O07 iA 007% 38 BISW3 #RL pA M_MRK,R1,- : SET MARKER AND LOAD DIFFERENCE 
67 50 06 a9 0079 240 BISW3 #6,7RO,RL_CS(R7) : EXECUTE SEEK FUNCTION 
0090 30 007D 241 BSBW READY : WAIT FOR CONTROLLER READY OR ERROR 
03 18 0080 4@ BGEQ 50$ : BRANCH IF NO ERROR DURING SEEK 
0072 «(31 a088 43 BRW 100$ : OTHERWISE, BRANCH DUE TO ERROR 
085 45 ; 
00 2 4g : SEEK, IF ANY, IS COMPLETE. EXECUTE TRANSFER FUNCTION 
085 248° 
0 0 54 £0 5 6849 50S: INSV R4,#0,#6,R6 : MERGE SECTOR WITH CYLINDER AND SURFACE 
” 9 ’ SOBA 50 5 aie PTH SUR=R6<6> SEC=R6<5:0> 
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DLBTDRIVR RLO1/2 BOOT DRIVER 15-SEP-1984 0:41 VAX/VMS Macro v04-00 Page 7 
mrad RUST? } hokteeee driver code 2786621382 $3 4:06 ([CBOOTS.SRCJDLBTDRIVR.MAR;1 ° (3) 
1} 3 ; SUBROUTINE TO WAIT FOR CONTROLLER READY OR ERROR 
11 10 ° 
11 11 READY 8 
67 8080 +4 B 11 \§ BITW #*x8080, (R7) ; CONTROLLER READY OR ERROR? 
F911 11 1 BEQL READY :IF EQL NO 
0 1 1% RSB 3 
58 45 2E 52 45 56 49 52 44 4C 44 09" O18 16 DLNAME: .ASCIC /DLDRIVER.EXE/ ; Driver file name 
0c O11 
HE: 17 
1 18 DL_DRVSIZ=.-DL_DRIVER 
0125 19 
0125 20 END 


———s 
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DLBTDRIVR = RLO1/2 BOOT DRIVER 15=SEP=1984 23:50:41 YAX/YMS Macro V04-00 p 
— table -$EP-1986 93:00:66 EaoorssseeiocaYoRivR.mar;1 "2% (8) 


sacs 


The working set Limit was 1350 pages. 

58295 bytes (114 pages) of virtual memory were used to buffer the intermediate cod e. 

There were 60 pages of symbol table space allocated to hold 1101 non-local and 13 local symbols. 
320 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

17 pages of virtual memory were used to define 15 macros. 


$1 = 09000009 R 02 1 
B1DSK. DL = $ E 
oy = 000 4 E 
DLNAME 4 118 R 93 C 
DL_DRIVER 00 9 R 0 C 
a “DRVSIZ = 000001 C 
FUNC = 0000001 E 
10$_WRITELBLK = 00000020 F 
READY 00000110 R 03 ] 
RL_BA 0000000 L 
RL_CS 0000000 ly 
RL_-CS_M_DRDY = 4448 F 
RL_DA™ 0000004 ; f 
RL_DA_M_MRK = 00000001 fi 
RL_-DA_M_RST = 00000008 f 
RL_DA_M_STS = 00000002 R 
MP 00000006 f 
RL_MP_M_BH = 00000008 f 
RL_MP_M_HO = 00000010 f 
RPBSW_UNIT = 00000064 R 
| = 00000001 fi 
SIZE = 00000008 fi 
SS$_CTRLERR = 00000054 A 
SS$_NORMAL = 00000001 : 
Geeecceccoccococa + | 
: ; _Psect synopsis ! : 
R 
PSECT name Allocation PSECT No. Attributes : 
. » 00000000 <( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL ot NOEXE NORD NOWRT NOVEC BYTE A 
SABSS 00000008 <( 8.) O1 ¢ ) NOPIC USR CON’ ABS LCL N EXE RD WRT NOVEC BYTE q 
BOOTDRIVR_4 00000028 ( 40.) 8$ ( ¢ ) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE Ri 
BOOTDRIVR 00000125 (¢« 293.) 03 ¢ ) NOPIC WSR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE - 
teers nee ce sew eee ea ewen eas a 
! 5 Performance indicators ! / 
| 
Phase Page faults CPU Time Elapsed Time ; 
Conand proces 43h 00:00 :00..08 60:00:00 .63 ; 
ommand processin :00:00. :00:02. 

, . 35 00:00:10:28 00:00:31:67 § 

Synbol table sort 0 00:00:01.74 0:00: 3-98 

70 Op 28: 1.80 88:28 38 28 

cass of table output 4 00:00:00.05 0:00:00.05 

Psect synopsis output 3 88:82: 0.03 0:00:00.02 

Cross-reference output 0:00: 2-98 398: 00 9 

Assembler run totals 556 00:00:14.7 0:00:30.64 


—— 


Wik SIRE atic cides Bh a lite ese oe 


nn 
o 


VAX/VMS Macro v04-00 Page 9 


_ OLBTORIVR = RLO1/2 BOOT DRIVER 15-SEP- 41 
SEP 706 (CBOOTS.SRCIDLBTDRIVR.MAR; 1 (3) 


5 
| VAK=11 Macro Run Statistics 4- 
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! Macro Library statistics ! 


pomeanseres een eer an cance cama } 


Macro Library name Macros defined 
-3255$DUA28: poets. OBJ JBOOTS.MLB; 1 1 
“$255$DUA28: §.0BJJLIB.MLB; 1 4 
“$255$DUA28: Syst IBISTARLET. MLB; 2 6 

TOTALS (all Libraries) 11 


1162 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:DLBTDRIVR/OBJ=0BJ$:DLBTDRIVR MSRC$:DLBTDRIVR/UPDATE=(ENH$:DLBTDRIVR) +EXECML$/L1B+LIB$:BOOTS.MLB/LIB 
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